home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: MegaDisc / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).zip / MegaDisc 36 (1993-11)(MegaDisc Digital Publishing)(AU)(Disk 2 of 2).adf / ARexx / Modular / Gadget.mod < prev    next >
Text File  |  1993-08-19  |  728b  |  20 lines
  1.     /* If a gadget is clicked */
  2.     Gadget:
  3.       n = arg(1)
  4.       if n > 4 & GetClip('inner_open') = '1' then do
  5.        call CloseWindow(HO1) ; s = SetClip('inner_open','0') ; end
  6.       select
  7.         when n = 1 then call OpenScr.mod()
  8.         when n = 2 then call InnerWin.mod()
  9.         when n = 3 then call WinText.mod()
  10.         when n = 4 then call ClearWin.mod()
  11.         when n = 5 then call MakeMenu.mod()
  12.         when n = 6 then call AddGad.mod()
  13.         when n = 7 then call PlaceText.mod() 
  14.         when n = 8 then call Rectangle.mod() 
  15.         when n = 9 then call CloseWin.mod() 
  16.         when n = 10 then call Gadget10.mod()
  17.         when n = 11 then call Gadget11.mod()
  18.         otherwise
  19.         end 
  20.        return